6
|
How do I put a picture on the control's background

with thisform.StatusBar1
.BeginUpdate
.Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
.Format = "1,2,3,4,(5/6/7/8)"
.Debug = .T.
.EndUpdate
endwith
|
5
|
How do I change the control's foreground color

with thisform.StatusBar1
.BeginUpdate
.ForeColor = RGB(120,120,120)
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
.Format = "1,2,3,4,(5/6/7/8)"
.Debug = .T.
.EndUpdate
endwith
|
4
|
How do I change the control's background color

with thisform.StatusBar1
.BeginUpdate
.BackColor = RGB(200,200,200)
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
.Format = "1,2,3,4,(5/6/7/8)"
.Debug = .T.
.EndUpdate
endwith
|
3
|
How do I change the control's border, using your EBN files

with thisform.StatusBar1
.BeginUpdate
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Appearance = 16777216 && 0x1000000
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
.Format = "1,2,3,4,(5/6/7/8)"
.Debug = .T.
.EndUpdate
endwith
|
2
|
How do I remove the control's border

with thisform.StatusBar1
.BeginUpdate
.Appearance = 0
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
.Format = "1,2,3,4,(5/6/7/8)"
.Debug = .T.
.EndUpdate
endwith
|
1
|
How can I change the control's font

with thisform.StatusBar1
.BeginUpdate
.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
.BackColorPanels = 0x5000000
f = CreateObject("StdFont")
with f
.Name = "Verdana"
.Size = 12
endwith
.Font = f
.Format = ""+chr(34)+"static text"+chr(34)+"[fg=255][a=17],11,22,(33/44)"
.EndUpdate
endwith
|